From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 15 Apr 2009 23:32:23 +0000 (+0000)
Subject: * outline.el (hide-sublevels): Ensure that arguments are passed to
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~829
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1d4f5ba9ee404b86fcc94f861fd5e6e134bd5be1;p=emacs.git

* outline.el (hide-sublevels): Ensure that arguments are passed to
outline-flag-region in the correct order (Bug#3000).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 85a790cf03c..76d8b614fcf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-15  William Xu  <william.xwl@gmail.com>
+
+	* outline.el (hide-sublevels): Ensure that arguments are passed to
+	outline-flag-region in the correct order (Bug#3000).
+
 2009-04-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* net/browse-url.el (browse-url-filename-alist): Correct file
diff --git a/lisp/outline.el b/lisp/outline.el
index e1e91271883..250f2e16335 100644
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -905,6 +905,8 @@ Show the heading too, if it is currently invisible."
                   (goto-char (point-max))
                   ;; Keep empty last line, if available.
                   (if (bolp) (1- (point)) (point)))))
+      (if (< end beg)
+	  (setq beg (prog1 end (setq end beg))))
       ;; First hide everything.
       (outline-flag-region beg end t)
       ;; Then unhide the top level headers.